home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
s85xx
/
s8504a.d64
/
Demo (Pl-B)
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
1KB
|
42 lines
10 REM ******************
20 REM PLOTTER-BASIC DEMO
30 REM ******************
35 .SCHWARZ:.GK:.MITTEL
37 .TEXT," [196]REHUNG EINES 3-[196]-[203]OERPERS"
38 .TEXT," =========================="
39 .MOVE,0,-70:.TEXT
40 XV=240:YV=0:REM VERSCHIEBUNGSVEKTOR
41 F=15 :REM VERGROESSERUNG
42 W=35 :REM BETRACHTUNGSWINKEL
43 L=24 :REM ANZAHL DER LINIEN
45 DIM R(L) :REM FELD DER LINIEN
50 P=8 :REM ANZAHL DER ECKPUNKTE
55 DIM X(P):DIM Y(P):DIM Z(P)
60 REM EINLESEN DER ECKPUNKTE
70 FOR I=1 TO P
80 READ X(I),Y(I),Z(I)
90 NEXT
100 REM EINLESEN DER VERBINDUNGSFOLGE
110 FOR I=1 TO L
120 READ R(I)
130 NEXT
140 REM ZEICHNUNG
150 FOR I=1 TO L STEP 2
160 .TRANSL,X(R(I)),Y(R(I)),Z(R(I)),XV,YV,F,W,X(R(I+1)),Y(R(I+1)),Z(R(I+1))
170 NEXT
180 REM DREHUNG UM 10 GRAD
185 DW=DW+10
190 FOR I=1 TO P
200 .TURN,X(I),Y(I),DW:REM DREHUNG UM Z
210 NEXT
220 .MOVE,0,-150
230 .TEXT :REM CR SENDEN
240 PRINT "COMMODORE-TASTE DRUECKEN!"
250 WAIT 653,2
260 PRINT "[145] [145]"
270 GOTO 140
499 REM ECKPUNKTE
500 DATA -2,-2,0,2,-2,0,2,2,0,-2,2,0,0,0,6,4,0,6,4,4,6,0,4,6
599 REM REIHENFOLGE DER VERBINDUNGEN
600 DATA 1,2,2,3,3,4,4,1,1,5,2,6,3,7,4,8,8,5,5,6,6,7,7,8